home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / TELIX.LZH / TLX315-1.ZIP / TBBS.SLT < prev    next >
Text File  |  1991-04-02  |  1KB  |  47 lines
  1. //////////////////////////////  TBBS.SLT  ////////////////////////////////////
  2.  
  3. // This is a sample script for logging on to a TBBS based system.
  4.  
  5. str user_name[] = "John;Smith";
  6.  
  7. // Put your name in the above line. The script will get the proper password
  8. // from the dialing directory (Telix puts that password in the script system
  9. // variable called _entry_pass).
  10.  
  11. // Before using this script for the first time, or when you make a change,
  12. // type 'cs tbbs' at the DOS prompt to compile the script for use by Telix.
  13.  
  14. //////////////////////////////////////////////////////////////////////////////
  15.  
  16. main()
  17.  
  18. {
  19.  alarm (1);
  20.  
  21.  if (not _entry_pass)                        // no pass, so didn't recog. board
  22.   {
  23.    prints ("Sorry, I don't know the password for this BBS!");
  24.    return;
  25.   }
  26.  
  27.  if (not waitfor ("First Name?", 180))       // if no prompt for name
  28.   {
  29.    prints ("Log-on failed!");
  30.    return;                                   // ...abort
  31.   }
  32.  
  33.  cputs ( user_name );                        // send name
  34.  cputs ("^M");
  35.  
  36.  if (not waitfor ("Is this correct?", 20))   // if no prompt for correct
  37.   {
  38.    prints ("Log-on failed!");
  39.    return;                                   // ...abort
  40.   }
  41.  
  42.  cputs ("Y");
  43.  cputs (_entry_pass);                        // send password
  44.  cputs("^M");
  45.  
  46. }
  47.